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NAL Utility routines 16-Sep-1984 00:38:11 VAX-11 Bliss-32 V4.0-74 Page 1 
12-88-1982 90:38:33 SP EKSUMGHASTERSCWHL SRCINMLUTIL.03251 . (1) 
; 1 001 ZTITLE "NML Utility routines’ $ 
H ¢ § MODULE NMLSUTILITY ( 3 
3 LANGUAGE (BL1S$$32) 3 
ins @ ADDRESSING_MODE (NONEXTERNAL=GENERAL) , ; 
3 5 Bh2 ADDRESSING vee 43 (EXTERNAL=GENERAL), 5 
; 8 $ IDENT = ‘'v04-000' 3 
3 00 )s 3 
; 5 $009 1 roe 
: 19 Bai 9 } leuteenneeneeneereneeenenneeereeereereetererertreerentneetnnereetnerteneeeets : 
: ie * 3 
3 \¢ pole 1 '* (COPYRIGHT (c) 1978, 1980, 1982, 1984 BY a 3 
$ 1 001 1 '® DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * $ 
3 i Bote ! - ALL RIGHTS RESERVED. * 3 
3 ‘ * 3 
; 16 0016 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
3 17 0017 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
3 18 0018 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
; 19 G019 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
$ 20 0020 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
; $3 4 1 : + TRANSFERRED. . : 
: $¢ 00 5 1 is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ® : 
3 $e 0024 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * $ 
3 $2 ee 5 , . CORPORATION. ® ; 
3 ! * F 
HY e7 $039 1 !® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * ; 
: 4 Bose | i. SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : ; 
: 30 0030 1 is . : 
3 31 oo : “etait stat ti tii aii iar intial aint ‘ 
: 3 0038 | , 
3 4 0034 1 !++ : 
; 5 0035 1 ! FACILITY: DECnet-VAX V2.0 Network Management Listener F 
;: = 0036 1! g 
3 $ sit t4 1 ! ABSTRACT: 3 
; 8 0038 1! } > ; 
eae 0039 1! This module contains routines for handling a variety of common : 
5 re ne ' functions. : 
: 4 004¢ ' ENVIRONMENT: VAX/VMS Operating Systen ; 
: 44 O44 ! AUTHOR: Distributed Systems Software Engineering ; 
> 46 0046 1 | CREATION DATE: 23-JAN-1980 : 
3: «647 0047 1! F 
3 48 0048 1 ! MODIFIED BY: : 
; 49 0049 1! 3 
0050 1! v03-009 MKP0009 Kathy Perko 23-July-1984 3 
a ae 057 1! hange area number defaulting so that, if no area number : 
3 26 O26 1! s supplied in the NICE command, the executor node's area 3 
,; % bpe 1! is used. This means the permanent database executor area 3 
: 2 054 1! number for permanent database operations, and the volatile é 
3 5 B83 ' : database executor area for volatile database operations. : 
: 3 0087 1! v03-008 mKP0008 Kathy Perko 21-June-1984 : 
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; rs 38 1 Modify NMLSCHKEXE to return success if the node address ; 
: BB 3 : } being checked is 0. : 
: 61 be 1 i v03-007 MKP0007 Kethy Perko 19=April-1984 ; 
.. ¢ p66 1! Modify NMLSGETEXEID to call NMLSGETEXENAM instead of 3 
: 63 063 1 | NMLSGETNODNAM. ; 
: 65 0065 1! V03-006 MKP0006 Kathy Perko 18-April-1984 : 
$ «68 R208 1 } Fix NMLSCHKEXEID so it's checking only a word for the : 
3 of Boek : node address (instead of a longword). : 
: 69 0069 1 i v03-005 MKP000S Kathy Perko 25-Mar-1984 ; 
: 0 070 1! Add a routine to check a node number, and, if it's got g 
> ee 0071 1! an area = 0, then convert it to 1 if talking to a Phase IV 5 
eS bors 7% NCP, and convert it to the exec's area if talking to a 3 
ae 00735 1! Phase II] ° ; 
3 ee Bate : Use global executor node addresses. : 
cS 0076 1! V03-004 MKP0004 Kathy Perko 5-Feb-1984 : 
WaPo 0077 1! Make sure permanent database file opens are done at the : 
3 ze pore : right times. ; 
: 80 0080 1: v03-003 MKP0003 Kathy Perko 4-Aug-1983 : 
; 8 0081 1! Make changes to convert node permanent database to utilize 3 
3 3 Boe } } multiple ISAM keys. This should improve performance. : 
iB 0084 1 | v03-002 MKPOO02 kath 21-June-1982 
: HY page : | with a word length. ; 
: 88 0088 1: v03-001 MKP0001 Kathy Perko 21-April-1982 : 
; 68 0089 1! Change NMLSBLDP2 to build P2 buffers with second start key : 
; 0090 1! and no start key. Also, always include a context area. 3 
3 4 944 : Add support for entity qualifiers. : 
: 9 0093 1! v02-001 LMK0001 Len Kawell 21-Jul-1981 : 
5 oe B23¢ ! Modifications for new NETACP control Q10. : 
: 96 0096 1— ; 


y Perko | 
Add to NMLS$BLDP2 so that it will take search key values 
| 
| 
| 
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NMLSUTILITY NML Utility routines 1hese 1984 00:38:1 VAX=11 Bliss-32 V4.0-74 Pa 3 NAL 
rae Declarations 127308- 1382 90:35:35 DT EKSYMEHASTERS CURE SRCINMLUTIL.83251 = (2) v04 


3 eclarations 
98 097 1 2SBTTL ‘Decl ions‘ 
: 100 099 1 
; 101 199 1 ! TABLE OF CONTENTS: 
a BBY: 
; 104 0108 1 FORWARD pour ine 
s 3909 104 1 NMLSBLDP : NOVALUE, 
: 106 8182 1 NMLSCHKEXE, 
3 107 196 1 NMLSSET_UP_EXEC_ID, 
; 108 1 1 NMLSGETEXEADR, 
; 109 ie 1 NMLSGETEXENAM, 
: 110 109 1 NMLSGE TNODNAM 
; 111 0110 1 NMLS$GETVOLNDNAM, 
; ig 0111 1 LSGETNODA 
ea) Qi¢ 1 NMLS$GETVOLNDADR, 
: (116 0113 1 NMLSGETEXEI 
> 115 0114 1 NMLSGETINF TABS, 
s 136 0115 1 NML SF IX_NODE_NUM; 
Mp RHE, 
; 4119 0118 1 ! INCLUDE FILES: 
Bega Bh 
; 122 pis) 1 LIBRARY ‘LIB$:NMLLIB.L32'; 
3 125 01 ¢ 1 LIBRARY ‘SHRLIB$:NMALIBRY.L32'; 
3: «(124 0125 1 LIBRARY 'SHRLIB$:NET.L32'; 
: 125 0124 1 LIBRARY ‘SYSSLIBRARY:STARLET.L32'; 
: 159 0196 | | 
: 128 0127 1 ! OWN STORAGE: 
: 1% O19 | | 
s ST $180 1 ! Many NICE commands need the executor node's address and/or name. Save them 
: 136 0131 1 ! here. The volatile database exec name and address can't change when 
s; ¥ 8136 1 ! the exec's state is ON, so they are only retrieved once for each run of 
3: «(134 0133 1 =! NMLSHR. The permanent database exec mame and address are retrieved, at 
; 133 bie ! } most, once per NICE command. They are not retrieved if they are not needed. 
s tor 0136 1 GLOBAL 
; «138 0137 1 nml\$gw_vol_exec_addr: WORD, 
s 19 8185 1 nat sou pereexeceddrs WORD 
> 140 0139 1 nmi$t_vol_exec_name: BELOCK 16] 
> 141 9140 1 nm{ $9@_vol_exet_nane_dsc: VECTOR €2)_INITIAL (0, nml$t_vol_exec_name), 
; be 141 1 nml$t_perm_exec_name: BBLOCK (16) 
; ie? 3186 : nml$gq_perm_exec_name_dsc: VECTOR (2) {NITIAL (0, nml$t_perm_exec_name); 
: 145 0144 1! 
: 146 Oiee 1 ! Parameter buffers and descriptors for use in handling volatile data base 
: 147 146 1! data. 
WB BEET 
s 150 129 1 pébuffer : VECTOR (Cnml$k pgyut ten. BYTE], 
: 13) 139 i prmbuffer : VECTOR (256, BYTE); 
3 138 133 1 BIND 
3 6154 1 1 p2bfdsc = UPLIT (nml$k_p2buflen, p2buffer) : VECTOR (2), 
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NAL 
vO4 
; prmdsc = UPLIT (256, prmbuffer) : VECTOR (2); 


— 
wise 
— 


N 
msglength; 


| EXTERNAL REFERENCES: 


AAC IMUIIVUMN 


Snml _extdef; 


ante 
nmi $gb_ncp_version; 


EXTERNAL LITERAL 
nml$_qiobfovf; 


EXTERNAL ROUTINE 
nml$bid_reply, 
nml$openfile, 
nma$searchfld, 
nml$error_i, 
nm l$readrecord, 
nmi$netqio; 
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NALSUTILITY NML_ Utility routines 16-5e -1984 00:38: VAX-11 Bliss-32 V4.0-74 Page 5 

va ty NMLSBLDP2 Yeuild PS buffer and descriptor 1 ~3e0 138% 90:35:35 SLEKSVMGMASTERSENAL SRCSNMLUTIL.B3231 . (3) 

: «(181 1 1 ZSBTTL "NMLSBLDP2 Build P2 buffer and de or ieser’ ; 
3 ; § ! : GLOBAL ROUTINE NMLSBLDP2 (LEN1, ADR1, LEN2, ADR2, P2DSC, RESDSC) : NOVALUE = : 
4% 18¢ 1 144 ; 
; 186 } ? ! FUNCTIONAL DESCRIPTION: : 
2 5 185 1! This routine builds the P2 buffer and descriptor for show operations. . 
3 138 } § ! The search key is added followed by the start key. : 
; 190 1 8 1 { FORMAL PARAMETERS: $ 
; «191 189 1! 3 
3 136 190 1! LEN1 First search key Length. if LEN! is: : 
; WY 191 1! = zero then ADR1 contains a longword search key. : 
; 194 $138 1! - >0 it contains the length of a string which $ 
: «6195 193 1! ADR1 points to. : 
: 196 0194 1! - -1 then search key ID is a wildcard, and nothing 3 
3 197 Bide : | needs to be put into the P2 buffer for it. 3 
; 198 196 1! - -2 then ADR1 contains a word search key. 3 
; 199 0197 1! ADR1 First search key address. If LEN! is zero then this s 
; 200 0198 1! is the longword value of the search key. If LEN’ is -1 then 3 
; 201 0199 1! the search key is omitted. : 
; 4 asoe : LEN2 pecans search key length. Same rules apply as for : 
: 204 0 oe 1! ADR2 Second search key address. Same rules apply as for 3 
; 205 0205 1! ADR1. $ 
; $98 0204 1! P2DSC Address of P2 descriptor. This routine assumes that 3 
: 207 0205 1! the buffer is largest enough to handle the result. : 
; 208 0206 1! The maximum P2 buffer required by NML is 36 bytes. : 
3 $08 f444 ! RESDSC Address of descriptor to hold resulting P2. : 
3 at) 0909 1 ! IMPLICIT OUTPUTS: 3 
$ $i§ 0210 1! The buffer described by P2DSC contains the search key and F 
3 ey 0211 1! start key information. : 
; 214 osi¢ fe : 
s 213 Bs! 1 !-- : 
; 216 si¢ 1 $ 
; 217 0215 BEGIN 3 
; 218 0216 : 
: 219 0217 MAP 3 
; 20 0218 P2DSC : REF DESCRIPTOR, ; 
H 21 0219 RESDSC : REF DESCRIPTOR; 3 
3 $§ 0220 3 
s de 0221 OWN ; 
H $¢ 8 § COLLATE_START_VALUE: VECTOR CNFBSC_CTX SIZE, BYTE) : 
; iH Z INITIAL ( REP AFBSC_CTX_SIZE OF BYTE (0)); : 
$ 2) 5 LOCAL H 
3 8 § MSGSIZE, 3 
; ¢ COUNT, ! P2 buffer length : 
3 31 3 PTR; ! P2 buffer pointer : 
; 0 2! ; 
3 35 1 ' Calculate the length of the resulting P2 buffer, and signal if 3 
: ¢ § the buffer supplied isn't big enough. s 
3 sds COUNT = 4; ! Account for count at beginning of buffer. ; 
; 235 SELECTONE .LEN1 OF : 

| 


NMLSBLDP 


PAEXAPMAMMMAMNIUNIVIVIV 
MEWN—ODOONOUS WHO 


& 
POMIPINOPURITURIPURINOPoPONPononononofnonofronornononnor 
Se SS 


foe are a 
PPP PAA AAA AMI BB EP PEE PW 


=SSSLEF- 


MOMIPOPUPOPORTNONOTY 
~“ 
PIPOPOPIPOPONOPYNPOPUPoNofny 
NR OOOO NEW  O ODN UE WIN 0 OONA UE WN $9 ODN UNE WR OO OP NOAOU EW OODOND 


SOOSOSSOCOSOSOOOOOOCOCOOCOCOCO COSCO SOOOOCSOOOSOOCOOOOOOO OOOO O OOOO OOOOOOoOO 


OOOWWOOW OOOO Os NIN NN NNN 


RAN LSSELSEALANW=LSSaNon 


ROPIPOPUPIPOPONONOPoNNofofofony 


F 
jty rovt ings 
Build P2 buffer and descriptor 


i 3: oe gy ate 


COUNT + 4; : 
1 -to 5]: “COUNT ; .COUNT + .LEN1 + 2 


SELECTONE .LEN2 OF 
ey Sh pay 2; 
5 


isi a 


——- 
"oO 


UNT = .COUNT + NEBS¢ CTX_SIZE 
COUNT GTR .P2DSC CBSCS$O_ LENGTH] THEN 


The P2 buffer will overflow. 


NALSAB -MSGBLOCK CMSBSL_FLAGS] = MSBSM_MSG pRo ! Set 
NML$AB_MSGBLOCK BSB_CODE) = NMASC_STS_MPR 

LS$AB Peseta MSBSL_TEXTJ = oe $ GIOBFOvF 
NMLSBLB_REPL LSAB_MSGBLOCK, MSGSIZE); - Build message 
$S1GNAL’ nSG" (NMLSAB. SNDBUFFER, mecsire), ! Signal it. 


PTR = .P2DSC CDSCSA_POINTER] + 4; 


Add first search key value to the P2 buffer. 


SELECTONE .LEN1 OF 


tg es = CHSMOVE (2, ADR1, 
0 


PTR); 
Pine j  EMOROVE (4, ADRI, 


.PTR); 


8, PTR); 
PTR); 
*ADR1, 


"Begin 

CHSWCHAR_A 
CHSWCHAR =A 
es = CHSMOVE 


TES; 


fe LENI< 
(.LENI< 
ts pas 


! 
Add search key two to buffer. 
SELECTONE .LEN2 OF 
=2]: PIR = CHSMOVE (2, ADR2, PTR): 
0): PTR = CHSMOVE (4, ADR2, .PTR); 
1 70 255): 
BEGIN 
CHSWCHAR_A (.LENZ<O, B. P BIR); 
CHSUCHAR A ({ LEN2< 
PTR R= CHSMOVE (.LENG, ADRE. 


TES; 


16- 
14- 


+ 4; 
J: COUNT. : -COUNT + .LEN2 + 2 


Signal an NML error. 


!' Skip over return count 


»PTR); 


»PTR); 
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Set up a context area of a 
replace the null string wi 
thet matched by the searc 

10 so that "Ny TACP w ; 
off from the “ ous Q] 
(KNOWN, ACTIV 


PTR = CHSMOVE ( NFBSC -CTX_SIZE, COLLATE_START_VALUE, .PTR); 
Set up resulting descriptor for return. 


RESDSC CDSCSW_LENGTH] = .PTR = .P2DSC CDSCSA_POINTER); 
RESDSC CDSCSA_POINTER] = .P2DSC CDSCSA_POINTER); 


END; ! End of NMLSBLDP2 


nr of nulls. NETACP will 

oct value of the last database 
key. This allows a o reissue 
start get aes where it left 

Used for plural entity seorettons 


oS 


ees: Dee rn 


TITLE NMLSUTILITY NML Utility routines 
-IDENT \V04-000\ 


-PSECT $PLITS,NOWRT ,NOEXE ,2 
Q0000 P.AAA: .LONG 104 
* 00004 -ADDRESS P2BUFFER 
000 . 256 
000 -ADDRESS PRMBUFFER 
-PSECT SOWNS,NOEXE,2 
00000 P2BUFFER: 
-BLKB 104 
00068 PRMBUFFER: 
L 256 
00168 MSGLENGTH: 


LK 4 
0O# 0016C COLLATE_START_VALUE: 
-BYTE~ (64) 


-PSECT $GLOBAL$,NOEXE,2 
10000 NML$GW_VOL renee inane 
00002 NML$GW PERN EXEC ADDR: 
00004 NML$T_VOL_EXEC_NAME: : 
00000000 00014 NML$Ga Vil EHEC _NAME_DSC: 


00000000" 6° oie DRESS pe -VOL_EXEC_NAME 
OO1C NMLST PERM. EXEC_NAME : 


.BCK 
00000000 0002¢ NML$GQ_PERR, EXEC NAME_DSC:: 
00000000' 00030 “ADDRESS NMLS$T_PERM_EXEC_NAME 


oO 
oo 
v0 
e 

> 
> 
@w 
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NMLSUTILITY NML Utility routines -$ep-1984 VAX-11 Bliss-32 V4.0-7 NAL 
rive NMLSBLDP2 "euild PS buffer and descriptor 18: 300-138 99: 38: 3} DISKSVMSMASTER: CNML. she NMLUTIL.B32; y oe 38 voé 
P2BFDSC= AAA 
PRMDSC= .AAB 


DHAQAAAAOM vv 


NML$GQ_ENTSTRDSC 


+3 


errr 
AAA A AAA PAA AA 


oor 


Saoor 
= wooawwovvl@o0 SB 


TRN NM “NML_NMV, NMLS$AB_PRMSEM 
XTRN NALS. pe CBN NMLSAL BENT INE TAB 


IFTER_PST 
XTRN NMLS$GB_ arate FORMAT 


XTRN NMLS$GB 
tag OPTIONS 


XTRN NML$GB~INFO 
XTRN NMLS$GL =FRMCODE  NMLSGL PRS_FLGS 


RSION 
XTRN NML$_QTOBFOVF, NMLSBLD_REPLY 
XTRN NIE SOPEMF ILE. * WMASSEARCHFLD 
XTRN NMLSERROR 1, NMLSREADRECORD 
EXTRN NMLSNE TO TQ16 


-PSECT SCODES,NOWRT,2 


O1FC 00000 .ENTRY NMLSBLDP2, Save R2,R3,R4,R5,R6,R7,R8 : 0180 
58 000000006 00 9 002 MOV NMLSAB_MSGBLOCK, R& : 
F 4 C2 0000 SUBL2 #4, SP F 
. 4 D doc MOVL #4. COUNT > 0234 
52 04 AC 00 0000F MOVL LEN : 0 3 
FFFFFFFE 8F 52 1 6 13 CMPL sO, fe : 0 
6 le 1A NEG 1 ; 
50 é CO 0001C ADDL2 #2, COUNT : 
19 11 O001F 3 : 
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WOr~000 NMLSBLDP2 "euitd PS buffer and descriptor 12-88-1982 99:38:35 STEKSVMEHASTERSEWML SRCINMLUTIL.B32:1 . (3) vO 
: DS 00021 18: TSTL =o : 0238 : 
1 BNEQ 2 : 3 
50 4 f ADDL2 #4, COUNT : ; 
E 15 008A 28: Brea 3 ; 0239 
OOOO00FF BF 3 pi CHPL R2, #255 : ; 
02 A240 3 MOVAB (RZ) £CQUNTI, COUNT : ; 
C AC DO OOO3A 38: MOVL LEN R + 0242 ; 
FFFFFFFE F 57 D1 000 . CMPL R77, #2 + 0244 ; 
03 12 0004 BNEQ 4 : ; 
50 é f 9047 ADDL2 te COUNT : : 
1 GA BRB 6 : : 
57 D5 0004C 48: TSTL = R? + 0245 : 
05 18 004 BNEQ 5$ : F 
50 04 ¢O 0005 ADDL2 #4, COUNT : ; 
10 11 0005 BRB 64 : : 
OF 15 00055 5$ BLEQ 6$ + 0246 ; 
QOOO0OFF BF D1 00057 CMPL =-R7, #255 : ; 
05 14 0005€ BGTR : : 
50 02 A740 9E 00060 MOVAB 2(R7)CCOUNT], COUNT : : 
50 40 AO 9 00065 6$ MOVAB 64(RO), COUNT > 0249 ; 
56 14 AC DO 00069 MOVL  P2DSC, R + 0250 : 
50 66 10 00 ED 0006D CMPZ2v #0, #16, (R6), COUNT : : 
ef 18 00072 BGEQ 7$ : ; 
68 4 00 00074 MOVL #4, NMLS$AB_MSGBLOCK : 0255 ; 
04 As 05 aE 00077 MNEGB #5, NMLSAB-MSGBLOCK+4 : 0256 ; 
OC A8 000000006 8F 00 0007B MOVL $&#NML$_QIOBFOVF, NMLSAB_MSGBLOCK+12 : 0257 : 
4100 8F BB 00083 PUSHR #*M<RB,SP> : 0258 : 
000000006 00 02 FB 00087 CALLS #2, NMLSBLD_REPLY : : 
6— DD OO8E PUSHL MM : 0259 : 
000000006 00 9F 0009 PUSHAB NM, SAB SNDBUFFER F ; 
01F90000 8F DD 00096 PUSHL #33095680 ; ; 
000000006 00 03 FB 9909¢ CALLS #3, LIBSSIGNAL ; : 
4 Ab 94 C1 S00A 7$: ADDL3 #4, 4(R6), PTR : 0262 : 
FFFFFFFE  8F 2 D1 000A8 CMPL = R2. : 0269 : 
06 12 OOOAF BNEQ ; : 
83 08 ac B60 00081 MOVW ADR1, (PTR)+ ; : 
16 11 00085 BRB 10$ ; : 
52 D5 00087 8S: TSTL = : 0270 : 
06 iF 0089 BNEO 9 ; : 
83 08 AC 00 0008B MOVL ADR1, (PTR)+ ; : 
14 11 OOOBF BRB 10$ ; : 
12 15 90¢} 9$ BLEQ 108 > 0271 : 
QOOOOOFF BF 52 (D1 ¢ CMPL R2, #255 ; : 
09 14 OCA BGTR 10$ : : 
3 046 =#OA 89 C MOVW LEN1, (PTR)+ 3 ogre 3 
3 08 BC 0D MOVC3 R2, @ADR1, (PTR) : 027 ; 
FFFFFFFE 8F D1 000D5 10$: CMPL = R?, fH2 > 0284 : 
6 if oc BNEG 11% : : 
83 10 AC 8 D MOVW ADR2, (PTR) + ; : 
IE 1 E BRB 13$ ; : 
; D £4 11$ TSTL = R? > 0285 : 
6 1 EG BNEQ 12$ : : 
83 10 AC D E MOVL ADR2, (PTR)+ ; ; 
14 1 EC BRB 13$ 3 é 
12 15 OOOEE 12$ BLEQ 13$ > 0286 : 
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va i NMLSBLDP2 Build P? buffer and descriptor Wraeeei She P3isbs3 Pee ekdnGAAe tac chee sheSmurie.e3s2s4°% «3s 
OOOO0OFF BF 57 D} oor? cHPL RY #255 ; 

83 0c AC 80 00F9 MOVW LENZ (PIRDs + 0288 

63 10 BC 3 : OOFD MOVC3 R7, @ADR : 0290 

63 00000000" 00 0040 8F 2800102 13%: moves #64 OL ATE. PSTART _VALUE, (PTR) + 0302 

20 18 AC D0 0010¢ MOVL.  RESDSC, fd + 0306 
60 04 AB A 9110 SUBW3 4 (RG), (RO) : 

04 Ad 04 Ab DO 0011 MOVL 4(R6). SURO) : 0307 

04 OO11A RET + 0309 


; Routine Size: 283 bytes, Routine Base: S$CODE$ + 0000 
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NMLSCHKEXE” Check node address against executor 12-808-1 383 99:38:35 TE CSVMGHASTERSCWAL SRCSNMLUTIL 83254 . (4) 
19 1 ZSBTTL "NMLSCHKEXE Check node address against executor’ 
} 1 GLOBAL ROUTINE NMI.SCHKEXE (NODE_1D, NODE_ADDR, NODE_NAME_LEN, NODE_NAME_ADDR) = 
18 | te 
13 ! FUNCTIONAL DESCRIPTION: 
1§ ii This routine compares the epect#ted node address with the executor node 
: ; H address to see if they match. 
15 1 | FORMAL PARAMETERS: 
>” 1} NODE _ID — NMASC_PCNO_ADD if routine is to check the executor 
8 re address and AMASC_PCNO_NNA if the routine is to check 
¢ 1! the executor's name. p 
8 1; NODE _ADDR Node address (word) to match against executor's 
® ii NODE_NAME_LEN Length of node name to match against executor's 
8 2 ! NODE_NAME_ADDR Address of node name string to match against executor's 
0327 1 | ROUTINE VALUE: 
83 8 1 ! COMPLETION CODES: 
0 1: nm\$_sts_cmp - The node id is not the executor's 
83 , : nmi$_sts_suc = The node id is the executor's 
0 1 ie. 
0338 
0334 BEGIN 
0336 3 MAP 
$339 node_id : WORD, 
tts node_addr =: WORD; 
0340 LOCAL 
0341 exeadr : WORD 
O34§ exenambuf : VECTOR (6, BYTE), 
034 exenamdsc DESCRIPTOR, 
0344 exenamlen, 
0345 status; 
O3¢7 5 MAP 
0348 nml$gb_options : BBLOCK (1); 
Oso 3 
0351 i If this is a permanent database operation, and the node permanent 
Be26 } data base file isn't already open, open it. 
$323 iF .nml$gb_options Cnma$v_opt_per] THEN 
0355 nml$openfile (nma$c_opn_node, nma$c_opn_ac_ro); 
$29 status = nml$_sts_cmp; 
338 5 
59 i If this routine was called to compare a node name against the executor's 
$ : mame, call NMLSGETEXENAM to do the comparison. 
$¢ if .node_id EQL nma$c_pcno_nna THEN 
BEGIN 
4 exenamdsc (dsc$w_length) = 6; 
5 exenamdsc [dsc$a_pointer] = exenambuf; 
66 IF nml$getexenam (exenamdsc, exenamlen) THEN 


a YF 


utine 1b-5¢ Sep-19 VAX-11 Bliss-32 V4.0-74 1 
+) node address against executor 1 Haat 99: 35; 33 DISKSVMSMASTER: CNML.SRCINMLUTIL.832; (29 (4 


NMLSUTILITY NAL Utility r 

Vor b00 NMLSCHKEXE” ¢ 

IF CHSEQL (.node_name_len, .node_name_addr, .exenamlen, exenambuf) THEN 
4 

4 

4 

) 

1 


70 


z2 


status = nml$_sts_suc; 


| 
Wn 


i If this routine was 


called to compare a node address against the executor's 
H address, call NMLSGETEXEAD 


R to do the comparison. 


BEGIN 
IF .node_addr EQL 0 THEN 
status = nml$_sts_suc 


N 
IF nml$getexeadr (exeadr) THEN 
F .exeadr EQL .node_addr THEN 
a status = nmi$_ st$_suc; 


END; 
RETURN .status 
J 


Bete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge ee ee SHS Se Se ee ee 
NOUS WN OO CONOULS WN O0OOon 


COCO COCO COCOCO OOOO NINN IIS 
090909 0909090908 NINN NN NINO O 


Ww 


END; ! End of nml$chkexe 


001¢ 00000 .ENTRY NMLSCHKEXE, Save R2,R3,R4 : 0311 
SE 18 ¢ 90002 SUBL2 #24, SP ; 
000000006 00 95 0000 TSTB  NML$GB_OPTIONS + 0354 
09 18 00008 BGEQ 1s ; 
7E 7C 0000D CLROQ (SP) + 0355 
000000006 00 02 FB 0000F CALLS Nil SOPENF ILE : 
4 10 CE 00016 1$: MNEGL + $4 : 0356 
O1F4 = BF 04 AC B1 00019 CMPW 33s NODE ain W800 : 0362 
23 12 0001F BNEQ 2$ ; 
08 AE 06 BO 00021 MOVW #6, EXENAMDSC > 0364 
OC AE 10 AE 9E 00025 MOVAB EXENAMBUF, EXENAMDSC+4 : 0365 
5E 0D Be8 A PUSHL 3; 0366 
OC AE 9F 0000C PUSHAB EX ENAMDSC ; 
00000000v 00 g FB O002F CALLS , NMLSGETEXENAM : 
27 £9 00 BLBC $ ; 
6E 00 10 BC 0c AC D 88 9 CMPCS NODE NAME_LEN pea _NAME_ADDR, #0, 3; 0367 
10 A 004 XENAMLEN; EXENAMB ; 
7 «11 0 4 BRB : 
08 Ac 83 44 2%: TSTW NODE_ADDR : 0376 
14 0047 BEQL : 
04 AE 9F 00049 PUSHAB EXEADR ; 0380 
00000000v 00 1 i: 0 46 CALLS #1, NMLSGETEXEADR : 
A O€ 5 BLBC ; 
08 AC 04 AE 8 056 CMPW XEADR, NODE_ADDR > 0381 
: 6 B 3S: BNEQ : 
54 1 OD D 4$: MOVL #1, STATUS : Oe 
50 4 00 960 5$: MOVL STATUS, RO : 038 
4 0006 RET : 0387 


; Routine Size: 100 bytes, Routine Base: S$CODE$ + 011B 
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NAL Utility routines 16-Sep-1984 00:38:11 VAX-11 Bliss-32 V4.0-74 Page 
NMLSSET_UP-EXEC. 1D Set up globals for executo 1 ~Sep-19 4 99:35:55 DISKSVMSMASTER: CNML.SRCIJNMLUTIL.B32;1 
1 ZSBTTL 'NMLSSET_UP_EXEC_ ID Set up globals for executors name and address’ 
: GLOBAL ROUTINE AMLSSET_OP_EXEC_ID = 

se Be 

35 1 ! FUNCTIONAL DESCRIPTION: 

> 3 3 This routine gets the name and address of the executor node from the 
8 9¢ : : volatile or permanent database and saves them in some global fields. 
0 38 1 ! FORMAL PARAMETERS: 
0397 1! NONE 
0398 1! 
8 99 } ' ROUTINE VALUE: 

400 ! COMPLETION CODES: 
0401 1! 
ot 14 1 !<- 
0403 1 
0404 BEGIN 
0405 
0406 MAP 
et $4 nml$gb_options : BBLOCK (1); 
0409 LOCAL 
0410 fldadr, 
0411 fldsize, 
Bot6 temp, 
041 recdsc VECTOR (2), 
0414 pedsc VECTOR (2), ! Descriptor for Q10 P2 (Key) buffer. 
0415 ptr, 
pete status; 
0417 2 
0418 2 SNFBDSC(NFBDSC, SHOW, , LNI 
0419 2 oNFBSC_WILDCARD, ! Search key 1 = wildcard, oper! = eql 
Beso : AES MOLOEARD ! Search key 2 = wildcard, oper2 = eql 
Bes§ ° 6 
04 
0424 IF “nal Sab_options Cnma$v_opt_per] THEN 
0425 BEG! 
Bess IF tml Sou_perm_exec_addr EQL 0 THEN 
i rs 
be ; 2 : If the node permanent data base file isn't already open, open it. 
0431 4 nml Sopenfile (nmagc .0pn node, nma$c_opn_ac_ro); 
04 ; 4 recdsc (1) = .prmdsc (13; 
04 4 status = nml$readrecord (nma$c_opn_node, ! Node database file ID 
0434 4 UPLIT (nmn$c_typ_key_ref), |! ISAM key = node type 
0435 4 UPLIT (nmn$c_typ_key_len, ! ISAM key value = executor 

4 & UPLIT (nml$c_executor)), 

4 4 prmdsc, ' Read buffer descriptor 

3 4 recdsc, ! Return data descriptor 

4 4 temp); ' Not used. 

40 4 IF .status THEN 

441 BEGIN 

rt fldadr = 0; 

44 IF mma$searchfild ( recdsc, 


444 nma$c_pcno_add, 


-PSECT SPLITS,NOWRT ,NOEXE ,2 


00000020 00010 P.AAC: .LONG $2 
0000" 00014 -ADDRESS U.1 
1 8 18 P.AAD: .LONG 1 
7? if P.AAF: .LONG 7 
0 3 6 § P.AAE: .LONG 2 
0 024 »ADDRESS P.AAF 
-PSECT SOWNS,NOEXE,2 


WMLSUTILITY NML Utility routines Ib-5¢ -1984 00:38: VAX-11 Bliss-32 V4.0-74 Page 
VOLe000 NMLSSET_UP-EXEC. 1D Set up globals for executo 1 ~Sep-19 4 99:38:33 DISKSVMSMASTER: CNML.SRCJNMLUTIL.B32;1 ’ ( 
: 449 445 fldsize, 

; 450 44 fldadr) THEN 

; te pee ‘ CHSMOVE (2, CHSPTR (.fldadr), nml$gw_perm_exec_addr); 
; aor = VU; 

: re re IF nma$searchfld ( recdsc, 

3; 454 te nma$c _pcno_nna, 

; 455 451 nntsqa perm_exec_name_dsc [0], 

; 456 Be ; fldadr) TH 

: 457 4 CHSMOVE (.nalSqq_perm.execnane_dsc C0], 

; 458 0454 “ere r, 

; 459 0455 -nml$gq_perm_exec_name_dsc (1]); 

; 460 0456 4 END; 

; 461 0457 END; 

; rh 0458 END 

; 46 0459 ELSE 

: 464 0460 BEGIN 

; 465 0461 IF pal Sgn.vol_enec2der EQL 0 THEN 

; 466 0462 4 BEG! 

: 467 0463 4 ' 

; 468 0464 4 ' Set up search and start key buffer to get any entry in the data 
; 469 0465 4 ' base. The executor node database only has one entry. Then issue 
3 res bees ? the Q10 to get the node address. 

: 47 0468 4 nml$bldp2 ( -1, 0, -1, 0, Eearent p2dsc); 

; 47 0469 4 status = nmi$netqio ( nfbdsc, 

3; 474 0470 4 pedsc, 

; 475 0471 4 fldsize, 

; 476 0472 4 prmdsc); 

: 477 0473 4 IF .status THEN 

; 478 0474 5 BEGIN 

: 479 0475 5 tr = .prmdsc (1); 

; $80 0476 5 HSMOVE (2, .ptr, nml$gw_vol_exec_addr); 

; 481 0477 5 ptr = .ptr + 4; 

: 482 0478 5 HSCOPY (2, ptr. 0, 4, nml$gq_vol_exec_name_dsc (0]); 

; 483 0479 5 CHSMOVE (.nml 9q vol_exec_name_dsc (OJ, 

; 485 0481 5 »nml$gq_vol_exec_name_dsc [1]); 

: 0482 5 RETURN nml$_stS_Suc 

; 48 0483 4 END; 

; 488 0484 3 END; 

; 489 0485 § END; 

3 0486 RETURN .status; 

; «491 0487 1 END; ! End of nml$set_up_exec_id 
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NMLSUTILITY ra. Utility routines 1b-3¢ -1984 :38: VAX-11 Bliss-32 V4.0-74 Page 1 
VOL 800 NMLSSET “UP EXEC C_.1D Set up globals for executo 1 30p- 13h 99:28:33 DLSKSVMEMASTERSENML  SRCINMLUTIL.B32:1 . J 
22 OO1AC ;_NFB : 
O71: .BYTE 34 : ; 
0 1ap “BYTE 0 : ; 
1 1AE “BYTE : : 
0 1AF .BYTE 0 : ; 
990000 180 .LONG 1 : ; 
0000001 1B4 “LONG 1 : ; 
99 0188 “BYTE : : 
990 O1BA ~ WORD : ; 
1010010 OiB¢ LONG 6842768 : : 
1020044 01C .LONG 169083 : ; 
0000000 001C4 .LONG 0 ; : 
001¢8 -BLKB 4 ; 
U.2= P.AAC : 
.PSECT $CODE$,NOWRT,2 : 
O7FC 00000 .ENTRY NALSSET UP_EXEC_ID, Save R2,R3,R4,R5,R6,R7,-; 0389 : 
5A 000000006 00 9€ 00002 MOVAB NMASSEARCHFLD, R10 : ; 
59 00000000' 00 9€ 00009 MOVAB = PRMD : ; 
58 00000000" 00 9€ 00010 OVAB NMLSGW PERM. EXEC_ADDR, R8 : ; 
5E iC C2 00017 SUBL2 : ; 
000000006 00 95 OOO1A TSTB NML$GB_OPTIONS + 0424 : 
6C 18 00020 BGEQ : ; 
68 B5 00022 TSTW  NMLS$GW_PERM_EXEC_ADDR + 0426 : 
6B 12 00024 BNEQ 3$ : F 
7— 7C 00026 CLRQ  =(SP) + 0431 : 
000000006 00 02 FB 00038 CALLS #2, NMLSOPENFILE ; F 
18 AE 69 00 0002F MOVL  PRMDSC+4, RECDSC+4 : 0432 f 
5E DD 00033 PUSHL SP : 0433 ; 
18 AE 9F 00035 PUSHAB RECDSC ; : 
FC =AS «OF 00038 SHAB PRMDSC ; 
14 Ad 9F 00038 PUSHAB P.AA : 0435 
OC Ad 9F O0003E PUSHAB P.AAD > 0434 
“E 04 00041 CLRL =(SP) > 0433 
000000006 00 06 FB 90045 CALLS #6, NMLSREADRECORD ; 
57 50 DO 0004A OVL RO, STATUS : 
6E 57 €9 0004D BLBC = STATUS, res + 0440 
04 AE D4 69090 CLRL —s- FLDAD > 044 
04 AE 9F 9009 USHAB FLDAD > 044 
C AE 9F 000 : PUSHAB FLDSIZE : 
7E O1F6 BF 3¢ 0005 MOVZWL #502, -(SP) : 
20 AE 9F 0005E PUSHAB ; 
6A 4 FB 0061 CALLS #4, NMASSEARCHFLD : 
04 0 €E9 00064 BLBC ~=—_—s«aRO,_:*18 : 
68 4 BE B80 00067 MOVW § @FLOADR, NMLS$GW_PERM_EXEC_ADDR ; 0447 
4 AE D4 00068 18: CLRL FLA ADR : 0448 
4 AE OF 6f PUSHAB FLD : 0449 
A AS OF 6 PUSHAB NAL $cc PERM. EXEC_NAME_DSC > 0451 
7E O1F4 BF 3C 00074 MOVZWL #500 : 0449 
20 AE OF 0079 PUSHAB RECDSC ; 
A 4 FB ore CALLS #4, NMASSEARCHFLD ; 
E 0 €9 0007F BLBC ~=—_—s«aRRO,. S$ : 


D 12 

TILITY NML Utility routines 1 4 VAX-11 Bliss-32 V4. e 17 
VOL 800 NMLSSET_UP Pex XEC_ID Set up globals for executo 12: eet T 99: 35: 3} DISKSVMSMASTER: CNML OSRCSNMLUTIL. B32;1 39 (5) 
50 — A MOVL Q_PERM_EXEC_NAME_DSC+ : 0455 
60 04 BE gf i 28 é Moves At go PERM-EXEC-NAME_DSC, ‘set Bar. (RO) t cm 
e & 83 33: TSTW NMLSGU_VOL_EXEC_ADDR + 0461 

40 : BNEQ é 
oc A i 9 PUSHAB P2DSC + 0468 

FA OAS OOF 3 PUSHAB P2BFDSC : 

fF D4 0009 CLRL 86 =(S ; 

7E CE 00098 MNEGL #1, (SP) : 

E D4 0009 CLRL. = = (§P) : 

7E 4 CE 000A MNEGL #1, (SP) : 

FDD9 =sCF 6 FB 0 A CALLS #6, NMLSBLDP2 : 
FC AS OF OOOA PUSHAB PRMDSC + 0469 

OC AE OF DO0AB PUSHAB ELDSIZE ; 

14 AE 9F OOOAE PUSHAB P2DSC : 

04 Ad 9F 00081 PUSHAB NFBDSC F 

000000006 90 04 FB 000B4 CALLS #4, NMLSNETQIO : 

7 0 DO 090BB MOVL RO, STATUS : 
iF 57 €9 OOOBE 4$ BLBC _—« STATUS, + 0473 
56 69 DO b00C1 MOVL  PRMDSC44, + 0475 
FE AB 86 BO 000C4 MOVW (PTR) fim Sou. VOL_EXEC_ADDR + 0476 
56 0 ¢0 0008 ADDL 2, PT + 0477 
04 00 ry - 0 C 0008 MOVCS #2, (PTR), #0, #4, NML$GQ_VOL_EXEC_NAME_DSC : 0478 
50 16 A8 00 000D2 MOVL_ NML$GQ_VOL_EXEC_NAME_DSC+4 + 0481 

60 02 Ab 12 A8 28 00006 MOVC3 NML$GQ~VOL_EXEC_NAME_DSC, 5 Rea), (RO) : 
50 01 DO 000DC MOVL #1, RO” + 0482 

04 OO00DF RET ; 
50 57 DO OOOEO S$: MOVL STATUS, RO + 0486 
04 000E3 RET + 0487 


; Routine Size: 228 bytes, Routine Base: $CODE$ + 017F 
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ty routines 16-3 =1984 00:38: VAX=-11 Bliss-32 V4.0-74 Pp 
EXDR Get executor node address 1 ~3e07 138% 99:38:33 DT EKSUMGMASTERSCNML  SRCINMLUTIL 03251 
S$ 


i 
x 

493 4, $ ZSBTTL "NMLSGETEXEADR Get executor node address' 

t3e ri ; GLOBAL ROUTINE NMLSGETEXEADR (ADDR) = 

$38 491 '4 

44 138 ! FUNCTIONAL DESCRIPTION: 

p44 t3e This routine returns the executor node address. 

4! 139 FORMAL PARAMETERS: 

o rh th ADDR Address of word to contain node address. 
99 IMPLICIT INPUTS: 


NMLS$GB_OPTIONS contains the command message options. 


If this is a permanent data base operation then it is assumed 
that the node file is already open. 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


If the executor node address is found then success (NML$_STS_SUC) is 
returned. If the node address is not found, then a zero address is 
returned along with failure (NML$_STS_PTY). 

SIDE EFFECTS: 


Destroys contents of PRMBUFFER. 


BEGIN 


p 
nml$gb_options : BBLOCK [1]; 


31 

35 

3 LOCAL 

34 exec_addr, 
35 status; 


COOCOOCSCOOOOSSSOOOCOOSOOSOOOCOCOOOOOCOOOCOOOOOOOOOOOOO 


awa ahah ah ab ah sh db db db db db db db db edd chub dabdudibahb hb Ab Ahhh Ah Ah sh Ab Ah Ab Ab Ab dh Ab Ab ah ah Ab ah ah at ee 


PEE FAA A ANIPDIPUNIPUDINPINPINIDS 8 I tS MOQOOOOOOCOCOCO 


IF .nml$gb_options Cnma$v_opt_per] THEN 


PWN $0 DOONAN WIND OO ONAUE WIN 9 OONAUES WN" O OONAOUE WN oO 


Be Se Be Be Se Se Se Se Se Ses Ge Ge Se Se Ge Ge Ge Ge Fe Ge Ge Ge Se Ge SF Ge Se Ge Se Ge FH Se Se Se SH SF Ss Fe Ge Se FH Sy Se SH SF Ss SESH Se SESH Se SH Se Sees 


4 0 exec_addr = nml$gw_perm_exec_addr 

re 6 exec_addr = nml$gw_vol_exec_addr; 

4g IF .(.exec_addr)<0,16> EQL 0 THEN 

4 BEGIN 

44 status = nml$set up_exec. id Q; 

& 6 IF NOT .status TRE 

“3 i No executor entry found. This should happen only for the permanent 
+8 be } database, and there, not very often. 
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NAL LITY NML Utility routines 16-Sep- VAX-11 Bliss-32 V4.0-74 P 19 

arat tty E EXEADR Get executor node address 14- =bep- 138 99: 38: 3} DIEKSVMEHASTERCCWAL SRCINMLUTIL.B32510 °° (6) 


NMLS$G 
0 45 EGIN 
i 
| i 
4 54 
5 550 
6 0551 
7 0552 


i 
T 
4 B 
4 5 0dr) <0 16> = 0; 
RETURN nm($_ sts_pty; 
END; _ 
CHSMOVE (2, .exec_addr, .addr); 


5 RETURN nml$_sts_suc; 
5 END; ! End of NMLSGETEXEADR 
0004 00000 sENTRY WNMLSGETEXEADR, Save R2 3; 0489 
000000006 00 95 it TSTB NML$GB_OPTION Ons 3; 0532 
09 18 0000 BGEQ $ 
52 00000000' 07 7 0) oe NMLSGW_PERM_EXEC_ADDR, EXEC_ADDR ; 0533 
52 00000000' ! g agot§ 1$: MOVAB NMLS$GW_VOL_EXEC_ADDR, EXEC_ADDR 3; 0535 
62 B85 OQOOIA 2$: TSTW (EXEC_ADDRY : 0537 
OF 1 001C BNEQ : 
FEF9 CF 90 £6 00015 CALLS #0, NMLSSET_UP_EXEC_ID : 0539 
07 0 €8 000 BLBS STATUS, 3$ : 0540 
04 BC B84 00026 CLRW @ADDR 3; 0546 
50 0c fF 0029 MNEGL #i2, RO 3; 0547 
4 0002C RET 3 
04 Bf 62 BO 0002D 3$ MOVW (EXEC_ADDR), @ADDR : 0550 
0 01 00 00031 MOVL #1, RO 3; 0551 
04 00034 RET 3 0552 


; Routine Size: 53 bytes, Routine Base: S$CODE$ + 0263 


IF NOT -Status TRE 
i No executor entry found. This should happen only for the permanent 
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TILITY NML Utility routines 18-56 -1984 00:38: VAX-11 Bliss-32 V4.0-74 Page 20 
VOL b00 NMLSGETEXEWAM Get executor node name 12-86-1382 99:33:33 DLEKSVMGMASTERSENML  SRCSNMLUTIL.832: 1 . 3 
: 559 3 1 ZSBTTL "NMLSGETEXENAM Get executor node name’ 
; rs ¢ } GLOBAL ROUTINE NMLSGETEXENAM (BUFDSC, RESLEN) = 
; 6¢ 8 1 44 
; o7 ! FUNCTIONAL DESCRIPTION: 
; 565 59 } This routine returns the executor node name. 
; ef 2) } FORMAL PARAMETERS: 
; 65 268 7: BUF DSC Address of descriptor of buffer to contain ASCII 
; 570 +¢4 1! node name. 
3 4! 23? ! } RESLEN Resulting Length of node name string. 
: os 0367 1 ! IMPLICIT INPUTS: 
: ere 568 1! 
3; 575 0569 1! If this is a permanent data base operation then it is assumed 
; 278 p2ey ! } that the node file is already open. 
; 578 B26 1 ! IMPLICIT OUTPUTS: 
; or 0573 1! 
; 580 0574 1! NONE 
; #581 0575 1! 
; 286 B278 1 ! ROUTINE VALUE: 
; 0577 1 ! COMPLETION CODES: 
; 584 0578 1! 
; 585 0579 1! If the executor node name is found then success (NML$_STS_SUC) is 
: 386 0580 1! returned. If the node name is not found a zero length counted string 
3 387 0581 1! is returned along with failure (NML$_STS_PTY). 
; 588 b256 1! 
; 589 0585 1 ! SIDE EFFECTS: 
; 590 0584 1! 
; S91 0585 1! NONE 
; 236 0586 1! 
; 0587 1 !-- 
3; 594 0588 1 
; 595 0589 BEGIN 
3 3 0590 
3 397 0591 MAP 
; 598 0236 bufdsc : REF DESCRIPTOR, 
: 599 059 nml$gb_options : BBLOCK (1); 
; 600 594 
: 601 595 LOCAL 
5 606 238 exec_dsc_addr: REF VECTOR, 
: 60 59 status; 
3; 604 598 
; 605 599 IF .nml$gb_options Cnma$v_opt_per] THEN 
: 3 tt} exec_dsc_addr = nml$gq_perm_exec_name_dsc 
; o08 one exec_dsc_addr = nml$gq_vol_exec_name_dsc; 
; 610 ba IF .exec_dsc_addr (0) EQL 0 THEN 
3; 6611 05 BEGIN f 
3 olg 6 $ status = nml$set upaexec. id 0); 
3 66 
3 614 608 
3; 615 609 


verdad 


So 


FAPAOPAAAAAAOAAAS 
—“OODDNOUS WN OOM 


08 BC 


: Routine Size: 


NML Ur it ity routines 16- d 
NMLSGETEXENAM Get executor node name 14°$ 
$19 ; database, and there, not very ofte 
ol¢ 4 BEGIN 
6135 4 -reslen = 0; 
URN nml$_sts_pty; 
614 RETUR \$ 
oi I 
e19 .reslen = .exec_dsc addr 02: 
dt IF -aresten LEQOD .bufdsc Cdsc$w_length] THEN 
620 CHSMOVE (..reslen, .exec_dsc_addr (1], 
be 1 RETURN nmi$_ sts_suc; 
06 § ELSE 
+9 4 RETURN nml$_sts_pty; 
625 END; ! End of NML 
0076 00000 
000000006 68 9 44 
9 18 0000 
52 00000000' 00 9€ gages 
07 11 00011 
52 00000000' ¢ 4 00013 1 
62 D5 OOOIA 2 
0D 12 0001C 
FEC4 CF 00 FB pp OTE 
05 50 €8 BnOs 
08 BC D4 00026 
1B 11 00029 
08 BC 62 00 0002B 3$: 
50 04 AC DO 0002F 
60 10 00 €ED 00033 
0B 1Ff 00039 
04 + =«B0 04 ~#«2=B2 08 BC 28 00038 
50 01 oO 4 94 
04 0004 
50 OC CE 00046 4$: 
04 00049 
74 bytes, Routine Base: $CODE$ + 0298 


Sah td 


e9-1984 13:3b iy Pee biwOHASTERs CMC SRCSNMLUTIL.832;4° 
n. 


-bufdse Cdsc$a_pointer]); 


$GETEXENAM 
ENTRY NiML $GETEXENAM Save R2,R3,R4,R5 
ist NALSGB._ OPTIONS 
MOVAB NML$GQ_PERM_EXEC_NAME_DSC, EXEC_DSC_ADDR 
MOVAB NML$GQ_VOL EXEC _NAME_DSC, EXEC_DSC_ADDR 
TSTL  (EXEC_BSC_ADD 
BNEQ $ 
CALLS #0, NMLS$SET_UP_EXEC_ID 
BLBS STATUS, 3$ 
CLRL  a@RESLEN 
BRB 4$ 
MOVL (EXEC_DSC_ADDR), @RESLEN 
MOVL UFDSt 
CMP ZV , #16, (RO), @RESLEN 
MOVC3 @RESLEN, @4(EXEC_DSC_ADDR), @4(RO) 
MOVL #1, RO 
RET 
MNEGL #12, RO 
RET 


Sete Se Ge Se Ge Se Se Se Se Se Be Ge Bs Se Be Se Be Fe Se Be 
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PAA UII 


Une 


o 
oa 
= 


er 


PAPAS 4 


OOOOOCOOOCOO 


PAA 
OOWONOUES WO OOO 
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12 
lity routines 1b-3¢ -1984 00:38: VAX-11 Bliss-32 V4. 
NODNAM Get node name given the address 1 =3007 1382 99:33:33 DISKSVMSMASTER: CNML 
ZSBTTL "NMLSGETNODNAM Get node name giver the address’ 
GLOBAL ROUTINE NMLSGETNODNAM (ADDR, BUFDSC, RESLEN) = 


'¢ 


'e4 
! FUNCTIONAL DESCRIPTION: 


This routine returns the node name that matches the 
specified address. 


FORMAL PARAMETERS: 


ADDR Node address. 

BUFDSC Address of descriptor of buffer to contain ASCII 
node name. 

RESLEN Resulting length of node name string. 


IMPLICIT INPUTS: 
NMLS$GB_OPTIONS contains the command message options. 


If this is a permanent data base operation then it is assumed 
that the node file is already open. 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


If the executor node name is found then success (NML$_STS_SUC) is 
returned. If the node name is not found a zero Length counted string 
is returned along with failure (NML$_STS_PTY). 

SIDE EFFECTS: 


Destroys contents of PRMBUFFER. 


BEGIN 
MAP 
addr : WORD 
bufdsc : REF DESCRIPTOR, 
nml$gb_options : BBLOCK (1); 


LOCAL 
addrdsc 


$ VECTOR C2), 
nameptr, 
namesize : WORD, 
temp, 

recdsc : VECTOR (2); 


IF .nml$gb_options Cnma$v_opt_per] THEN 
BEGIA — <P 


0-74 2 
OSACSNMLUTIL.B32:1°%" (85 


Cs 


< 


lt et lt alt lt alls ll lle all ll 
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NALSUTILITY NML Utility routines 1b-Se -1984 00:38:11 VAX-11 Bliss-32 V4.0-74 Page 23 
VOL. 000 NMLSGETNODNAM Get node name given the address 14-Sep-19 4 99:35:53 DLSKSVMGMASTERSCNML SRCINMLUTIL.83251 . BS 
3 $30 $s ; If the node permanent data base file isn't already open, open it. 

; 69 5 nmlSopenfile (nma$c_opn_node, nma$c_opn_ac_ro); 

: 69 6 § recdsc ti z -prmdsé Pas! — 

; 694 6 addrdsc = é; 

; 695 688 ogerdss 1] = addr; 

; 696 689 IF nml$readrecord (nma$c_opn_node, ! Node perm database file ID 
; 697 0690 UPLIT (nma$c_pcno_add), ' Use ISAM aT = node address 
: 698 0691 addrdsc, ' ISAM Rey value = node address 
; 699 8036 prmdsc, ! Read buffer descriptor 

; 700 069 recdsc ' Return data descriptor 

: 701 bees temp) THEN ! Not used 

s 70 695 4 GIN 

; 70 2028 4 namesize = 0; 

: 704 0697 4 nameptr = 0; 

: 705 0698 4 IF nma$searchfld ( recdsc, 

; 0699 4 nma$c_pcno_nna, 

; 707 0700 4 namesize, 

; 708 0701 4 nameptr) THEN 

; 709 40 5 BEGIN 

: 710 0703 5 CHSMOVE (.namesize, CHSPTR (.nameptr) 

: 711 0704 5 CHSPTR (.bufdsc Cdsc$a_pointer])); 

: Ng 0705 2 -reslen = .namesize; 

: 71 0706 

3; 714 0707 5 RETURN nml$_sts_suc 

s 715 0708 4 END; 

; 716 0709 4 END 

3s 717 0710 3 END 

; 718 0711 ELSE 

; 719 Bs RETURN nml$getvolndnam (.addr, .bufdsc, .reslen); 

; 720 071 

3; 721 0714 ! 

3 Us¢ 0715 !' No node name found. 

; 7e 0716 ! 

; et 0717 -reslen = 0; 

3; 725 0718 

; 726 0719 RETURN nml$_sts_pty 

s ver 0720 2 

; 728 0721 1 END; ! End of NMLSGETNODNAM 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
000001F6 00028 P.AAG: .LONG 502 : 


-PSECT SCODES,NOWRT,2 


7¢ 00 .ENTRY NMLSGETNODNAM, Save R2,R3,R4,R5,R6 : 0627 
56 00000000' 00 9 0 MOV PRMDSC+4, R6 ; 
§ SUBL #28 3 
000000006 0 9 TSTB NML$GB_OPTIONS > 0680 
1 BGEQ F 
( 7¢ 0001 CLRQ  =(SP) + 0685 
000000006 00 02 FB 00016 CALLS #2, NMLSOPENFILE ; 


<= 
a a ee ee oe ee ee LeeLee | 2 


Bs Se Se Se Se Se Be Be Se Be Se Se Se Se Se Se Ge Fe Se Be Te Se Se Se Fe Se Se Ge Se Se Seas Ge Se SESH Se Se ee Se Se Se Se Se Se Se Sse eess ee Se Sete Seas tsar 
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TILITY NML Utility routines 16-Sep-1984 00:38: VAX=-11 Bliss-32 V4.0-74 Pa 4 NAL 
Wore bOD NMLSGETNODNAM Get node name given the address 13-808=1 382 99:38:33 DISKSVMSMASTER: CNML.SRCJNMLUTIL.B32;1 ” BS v04 
10 AE D MOVL  PRMDSC+4, RECDSC+4 : 06 ;] 
14 AE 88 b9 j MOVL #2, ADDROSC : 06 : 
18 AE 04 AC 9E MOVAB ADDR, ADDRDSC+4 + 0688 ;] 
SE 0D A PUSHL_ SP ; 0689 : 1 
10 AE F C PUSHAB RECDSC ; i] 
EC A F PUSHAB PRMDSC ; :] 
? AE F PUSHAB ADDRDSC ; i] 
C AG OOF PUSHAB P.AAG 3 0690 : 1 
7E D4 CLRL = = (SP) + 0689 31 
000000006 09 06 F A CALLS #6, NMLSREADRECORD ; : 3 
. E9 00041 BLEC = «RO, 2$ ' 24 
8 AE B4 44 CLRW NAMESIZE 3 069 2) 
& AE 04 4 CLRL NAMEPTR 7 069 3 1 
4 AE 9F 00046A PUSHAB NAMEPTR ; 0698 : 3 
C AE 9F 00040 PUSHAB NAMESIZE ; i] 
7E Oi1F4 «BF «3C 9090 MOVZWL #500, -(SP) F : 1 
18 AE 9F 0005 PUSHAB RECDSC ; :] 
000000006 90 4 FB 00058 CALLS #4, NMASSEARCHFLD : : 1 
e4 0 €9 0005F BLBC 0, 2$ ; 2] 
0 08 AC 00 00062 MOVL  BUFDSC, RO + 0704 31 
04 B80 04 BE 08 AE ¢8 0066 MOVC3 NAMESIZE, @NAMEPTR, @4(RO) : 71 
oC BC 08 AE 3C 9060 MOVZWL NAMESIZE, @RESLEN : 0705 ea 
50 01 D0 000 é MOVL #1, RO : 0707 i] 
04 0007 RET ; : 1 
7E 08 AC 7D 00076 1%: MOVa BUFDSC, -(SP) : 0712 3:1 
7E 04 AC 3C OOO7A MOVZWL ADDR. =(SP) ; : 1 
00000000v 00 03 FB 0007E CALLS #3, NMLS$GETVOLNDNAM F 
04 0008 RET ; 

OC BC 04 00086 2s: CLRL aRESLEN : 0717 

50 C CE 00089 MNEGL #12, RO : 0719 

04 0008¢ RET : 0721 


; Routine Size: 141 bytes, Routine Base: $CODE$ + 02E2 
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TILITY NML_ Utility routines 18-5¢ -1984 00:38:11 VAX-11 Bliss-32 V4.0-74 Page 25 
VoL 800 NMLSGETVOLNDNAM Get node name given the addres j 730071383 99:38:33 DLeKSVMGMASTERSENML SRCINMLUTIL.B32:1 . (33 
3; £ 7 § 1 ZSBTTL “NMLSGETVOLNDNAM Get node name given the address’ 
3 f 1 f 7 ! GLOBAL ROUTINE NMLSGETVOLNDNAM (ADDR, BUFDSC, RESLEN) = 
2 5 725 1 S44 
; f ? f § ! FUNCTIONAL DESCRIPTION: 
3; ( 7 8 17 This routine returns the volatile node name that matches the 
: f 7 f 2 : } specified address. 
; 739 0731 1 ! FORMAL PARAMETERS: 
: 740 7 § 1! 
; 741 7 1! ADDR Node address. 
s re 734 1! BUF DSC Address of descriptor of buffer to contain ASCII 
; 74 Be node name. 
3; 746 8 § 1! RESLEN Address of longword to contain resulting Length 
; 745 7 1: of node name string. 
: 746 0738 1! 
s 767 0739 1 =! IMPLICIT INPUTS: 
; 748 0740 1! 
3; 749 0741 1! NONE 
; 750 Bree 7 y 
3 fo) 074 1 ! IMPLICIT OUTPUTS: 
3 P36 0744 1! 
3 0745 1! NONE 
; «754 o7e6 1! 
Rees 0747 1 ! ROUTINE VALUE: 
; £36 0748 1 ! COMPLETION CODES: 
3 Bree ; 3 
3 oe 750 1! If the node name is found then success (NML$_STS_SUC) is 
; 759 0751 1! returned. If the node name is not found a zero length counted string 
; 760 O76 1! is returned along with failure (NML$_STS_PTY). 
: 761 0755 1! 
: 76 2754 1 ! SIDE EFFECTS: 
; 76 0755 1! 
3; 764 0756 1! Destroys contents of PRMBUFFER. 
; 765 0757 1! 
: 766 0758 1 !-- 
3; 767 0759 1 
on 0760 BEGIN 
; 76 0761 
: 770 B76 MAP 
: 771 076 addr : WORD 
: 7 0764 bufdsc : REF DESCRIPTOR; 
3; 776 P 0766 Snfbdsc(nfbdsc, show, , ndi 
3s 775 P 076 -tad ' Search key 1 = Transformed Address, oper! = eql 
: 776 P 544 nfb$c_wildcard, | Search key 2 = wildcard, oper2 = eql 
. eee A 4 enna); 
; 778 770 
3; 779 771 LOCAL 
: 780 77 p2dsc : VECTOR (2), 
3; 781 77 nameptr, 
: 44 774 namesize : WORD, 
3 78% ag node_addr; 
; «785 77 node_addr = .addr; 
3; 786 0778 


M12 
NMLSUTILITY NML_Utility routines 16-Sep-1984 VAX-11 s-32 V4. 6 
yO% 800 NMILSGE TVOLWDNAM Get node name given the addres 14-Sep-1984 99: 35: My DISK $V nen TER: cum” she NMLUTIL.832;1 ad 5 


; 787 779 IF “ater EQL 0 THEN ' If zero address then 
s £ 780 sae exeadr (node_addr); ! get the real executor address 
: f 9 f 1 nmtsbldpae , enode_addr, -1, 6, p2bfdsc, p2dsc); 

; 791 7 4 IF nml$netqio ( wineet 

; 79 784 pedsc 

; 79 785 namesize 

: 794 7 § prmdsc) THEN 

; 795 7 BEGIN 

; 796 788 nameptr = .prmdsc (1); 

: 797 789 names ize = .(.nameptr)<0,1 

: 79 790 CHSMOVE (.namesize, CHSPTR® i nameptr,2), .bufdsc Cdsc$a_pointer)); 
a. Ty 791 .-reslen = .names = 

; 800 79 RETURN nml$_sts_su 

; 801 79 END; 

; 80 794 ! 

; 80 795 ! No node name found. 

: 804 738 ! 

; 805 79 ereslen = 0; 

3; 806 0798 

B07 0799 2 RETURN nml$_sts_pty 

; 808 0800 

; 809 0801 1 END; ! End of NMLSGETVOLNDNAM 


-PSECT SPLITS,NOWRT ,NOEXE,2 


0000001C 0002C P.AAH: .LONG 28 3 
00000000" 00030 -ADDRESS U.3 3 
-PSECT SOWNS,NOEXE,2 
22 OO1CC ;_NFB 

U BYTE 34 ; 
00 001CD -BYTE 3 
8 O1CE BYTE 3 
Q OOICF BYTE : 
020100" 3109 LONG 3619984 3 
000001 104 LONG 1 3 
0 00108 BYTE 8 3 
0109 BYTE 3 
8 O1DA ~ WORD 3 
0308 ly Bide . LONG 3685571 3 
000 1E - LONG 3 

O1E4 BLKB 4 


U.4= P.AAH 


-PSECT SCODES,NOWRT,2 


007¢ .ENTRY NMLSGETVOLNDNAM, Save R2,R3,R4,R5,R6 ; 0723 

6 00000000' 00 H MOV P2BFDSC, R6 : 
f 04 +3 5 AOVIGL ADDR NODE_ADDR : 0777 
Of : 15 BNEQ =1$ = . : 0779 
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NALSUTILITY NML Utility routines 16-Sep-1984 111. - VAK-11 BLiss-32 v4. 7 
yO%~000 NMILSGE TVOLNDNAM Get node name given the addres 13-308-138e 98 3:33 DISKSVMSMASTER: cui” she NMLUTIL.832;1 goee 3 
DD 0001 PUSHL SP : 0780 

FEDB CCF af FB 12 CALLS #1, NMLSGETEXEADR : 
08 AE 9F 00079 1$ PUSHAB P2bSC t 0781 

3 DD 0001C¢ PUSHL 6 ; 

E D4 0001 CLRL. = SP) F 

7E 01 CE MNEGL #1, =(SP) : 

10 AE DD PUSHL NObE ADDR : 

7E 04 6 CLRL (SP ; 

FC64 OCF 06 FB 0 CALLS #6, NMLSBLDP2 ; 
08 A6 9F 0002D PUSHAB PRMD + 0783 

0 9F 000 PUSHAB NAMESIZE ; 

10 A i 0 PUSHAB P2DSC ; 

2 AG OOF PUSHAB NFBDSC ; 

000000006 00 4 FB 0 CALLS #4, NMLSNETQIO ; 

iC 0 £9 0004 BLBC F 
51 0c Ab DO 904 MOVL §§ PRMDSC+4, NAMEPTR + 0788 
04 Ar 61 BO 0004 MOVW §(NAMEPTRS, NAMESIZE : 0789 
5 08 ac DO 0048 MOVL. BUFDSC + 0790 

04 BO 02 Al 04 AE ¢8 O004F MOVC3 NAMESIZE, 2(NAMEPTR), @4(RO) F 
oC BC 04 AE 3C 00056 MOV ZWL NAMES TIE. @RESLEN + 0791 
50 07 00 00058 MOVL #1, RO + 0792 

04 0005€ RET : 
OC BC D4 OO00S5F 28 CLRL § @RESLEN : 0797 
50 OC CE 90062 MNEGL #12, RO : 0799 
04 0006 RET + 0801 


; Routine Size: 102 bytes, Routine Base: SCODE$S + 036F 
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tility routines 16-5 -1984 00:38: VAX=11 Bliss-32 V4.0-74 Page 28 
NODKDR Get node address given the name 14-S ee 38 99:35:35 DISKSVMSMASTER: CNML.SRCJNMLUTIL.832;1 . 185 
e 
R 


1 
1 
ZSBITL "NMLSGETNODADR Get node address giv n th 


name' 
GLOBAL ROUTINE NMLSGETNODADR (NAMLEN, NA )= 


e 
DR 
+4 

FUNCTIONAL DESCRIPTION: 


This routine returns the node address that matches the 
specified name. 


FORMAL PARAMETERS: 


ADDR Address of word to contain node address. 
IMPLICIT INPUTS: 
NMLS$GB_OPTIONS contains the command message options. 


Bete Ge Fe Ge Fe Ge oe 
Pee ee 


If this is a permanent data base operation then it is assumed 
that the node file is already open. 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


If the node address is found then success (NML$_STS_SUC) is 
returned. If the node address is not found a zero address 
is returned along with failure (NML$_STS_PTY). 


SIDE EFFECTS: 
| 
| 


Destroys contents of PRMBUFFER. 


BEGIN 


P 
nml$gb_options : BBLOCK (1); 
$nfbdsc(nfbdsc, show, , ndi 


enna : 
ntb$c_wildcard, | Search 
-tad); 


Node name, oper! = eql 
wildcard, oper2 = eql 


Search key 1 
key 2 


LOCAL 


pedsc : VECTOR (2), 
ey : WORD, 

temp, 

recdsc : VECTOR (2); 


IF .nml$gb_options Cnma$v_opt_per] THEN 


R Get node address given the name 
BEGIN 

If the node permanent data base file isn't already open, open it. 
nml$openfile (nma$c_o 


recdsc [1] = .p 
IF nml$readrecord (nma$c_opn_node, 


OOOO NNN NN NINO oO 
WN" OOVONOULSWN—O 


See 
SSCS CSCS SSCS CCS 


oooooocoo 


Se Se Se Ge Se Se Oe Oe Oe Be Hs Oe Oe Oe Se Oe Os Oe Oe Oe Oe Se Oe Oe Oe Oe Oe He Oe Oe Shee Be Bees 


13 
ti -Sep- 38: - - 
R Get n 16 att hs 99:38:33 DL KSVMGMAST ; 


rmdsc 


UPLIT (fAma$C_pcno_nna), 
namlen, 


prmdsc, 
recdsc 
temp) THEN 
BEGIN 
fldadr = 0; 
IF nma$searchfld ( recdsc 


nma$c_pcno_add, 


idsize, 
fldadr) THEN 
BEGIN 
CHSMOVE (2, .fldadr, .addr); 
io nm($_sts_suc 


RETURN nml$_sts_suc; 


No node address found. 
(.addr)<0,16> = 0; 


-Sep-1984 


pn snode. nma$c_opn_ac_ro); 


Node perm database ID 
Use ISAM 

ISAM Key value dsc = node name 
Read buff 

Return data descriptor 
Not used 


key = node name 
er descriptor 


IF nml$getvolndadr (.namlen, .namptr, .addr) THEN 


! End of NMLSGETNODADR 


22 OO1E8 ;_NFB 
U.5: 


E 
E 
E 
E 
F 
F 
F 
F 
F 


OOulorwro 


4 P.AAI: 
C P.AAJ: 


-PSECT $PLITS,NOWRT,NOEXE,2 


-LONG 28 
- ADDRESS ie 
-LONG 500 


~PSECT SOWNS,NOEXE,2 


4 


3 
0 
bass 


3619984 


2.V¥4.0 


ribs Page $3 
SMASTER:CNML.SRCIJNMLUTIL.B32;1 (10) 


— 


dD 13 
voreboo NMLSCETN ObkoR “bee's node address given the name 127868-1 383 99:35:33 DISK $y VMEMAS FERSCNMLS SRCSNMLUTIL. B32; 439 489 


00000000 OIF «LONG 0 : 
0 -BLKB 


20 B 4 
U.6= P.AAI 
«PSECT $CODE$,NOWRT,2 
| 


0004 0000 ENTRY NL SGETNODADR, Save R2 : 0803 
52 00000000' 00 9€ 0000 OVA PRMDSC4+4, R2 : 
SE iC § 000 SUBL2 #28, SP F 
000000006 09 9006 TSTB © NML$GB_OPTIONS + 0858 
49 1 1 BGEQ ; 
7E 7C 00014 CLROQ SP) + 0863 
000000006 00 02 FB 00016 CALLS ry NMLSOPENF ILE : 
10 AE g DO 0001D MOVL PRMDSC+4, RECDSC+4 : 0864 
E DD 00021 HL SP + 0865 
10 AE 9F 00023 PUSHAB RECDSC ; 
FC A 9F 00026 PUSHAB PRMDSC é 
04 AC 9F 00029 PUSHAB AM 3 
30 Ad 9F 900 C PUSHAB P. (AM + 0866 
7E D4 O002F CLRL + 0865 
00000000G 00 28 FB 00031 CALLS a PML SREADRECORD ; 
37 0 €9 00038 BLBC : 
04 AE 04 0003B CLRL —«FLDADR + 0872 
04 AE OF Fa: PUSHAB FLDADR : 0873 
OC AE 9F 00041 PUSHAB FLDSIZE : 
7E O1F6 BF 3C 00044 MOVZWL #502, -(SP) : 
18 AE 9F 00049 PUSHAB REC 3 
000000006 00 04 FB 00046 CALLS #4, NMASSEARCHFLD : 
iC 50 £9 0005 BLBC 0. : 
0c BC 04 BE B60 00056 MOVW @FLDADR, @ADDR ; 0878 
7.«11 00058 BRB : 0879 
7E 08 AC 7D 0005D 1$: MOVa NAMPTR, -(SP) ; 0884 
04 AC DD 00061 PUSHL NAMLEN : 
000c0000v 00 03 FB 00064 CALLS #3, NMLSGETVOLNDADR : 
04 50 £9 00068 BLBC = RO. -3$ : 
50 01 00 0006 2$: MOVL #1. RO > 0885 
04 00071 RET : 
0c BC B4 00072 3$: CLRW  @ADDR : 0889 
50 OC CE 0007 MNEGL #12, RO : 0891 
64 00078 RET : 0893 


; Routine Size: 121 bytes, Routine Base: S$CODE$ + 0305 


EE EE O_o ——EE 
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ility routines 16-5¢ -1984 00:38: VAX-11 Bliss-32_V4.0-74 Page 31 
$GETVOLNDADR Get volatile node address give 1 =300 71382 99:38:33 PE ECSVMBHASTERSCWAL SRCSNMLUTIL.832:1 ° (11) 


sie HT dy ay Ut 


L 
: 904 94 1 ZSBTTL "NMLSGETVOLNDADR Get volatile node address given the name' : 
; oR? + : GLOBAL ROUTINE NMLSGETVOLNDADR (NAMLEN, NAMPTR, ADDR) = ° 
: 309 39 1 '+4 : 
: 4 38 : FUNCTIONAL DESCRIPTION: ‘ 
: 910 900 1! This routine returns the node address from the volatile data base ; 
: ae 44 : } that matches the specified name. ° 
3 318 308 1 ! FORMAL PARAMETERS: : 
: 916 904 1! ° 
3 Biz i 5 i ADDR Address of word to contain node address. ‘ 
: 319 307 1 ! IMPLICIT INPUTS: : 
; 918 908 1! ‘ 
: 919 0909 1! NONE ‘ 
: 920 0910 1! ‘ 
: 921 0911 1 =! IMPLICIT OUTPUTS: ; 
; F ¢ b3ig 1! . 
: 92 0915 1! NONE 
8 ose 0914 1! 
; 925 0915 1 ! ROUTINE VALUE: 
; 926 0916 1 ! COMPLETION CODES: 
; ase 0917 1! 
; 928 0918 1! If the node address is found then success (NML$_STS_SUC) is 
; 368 0919 1! returned. If the node address is not found a zero address 
3 330 Bago ! } is returned along with failure (NML$_STS_ PTY). 
; 336 $356 1 ! SIDE EFFECTS: 
: 93 09 1! 
: 934 0924 1! Destroys contents of PRMBUFFER. 
: 935 bas? 1! 
; 936 0926 1 !-- 
; 937 0927 1 
; 938 0928 2 BEGIN 
; 939 0929 2 : 
: 940 P 0930 2 $nfbdsc(nfbdsc, show, , ndi 
3 941 P 0931 2 nna ' Search key 1 = node name, oper! = eql 
; 942 p aa) -nfb$c_wildcard, | Search key 2 = wildcard, oper2 = eql 
: 943 093 ,tad); 
3 944 0934 
; 945 8332 LOCAL 
3; 946 936 pedsc : VECTOR (2), 
: 947 e544 ptr; 
; 948 938 
: 949 0939 nml$bldp2(.namlen, .namptr, -1, 0, p2bfdsc, p2dsc); 
; 950 940 IF nml$netqio ( nfbdsc, 
3; «6951 941 sc, 
3 326 2e6 ° 
; 95 94 prmdsc) THEN 
3 954 944 BEGIN 
3; 955 945 MAP 
3 329 ae$ ptr: REF BBLOCK, 
3 eH es nml$gw_vol_exec_addr: BBLOCK; 
: 959 094 ptr = sprndsc (1); 
: 960 0950 F CHSRCHAR (nml$gb_ncp_version) LEQ 3 THEN 


eee armies natty 
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NMLSUTILITY NAL Utility rout 19< Sep- VAX-11 
Voe-800 wine me Get volatile node address give 14- =Sep- 1984 99: 35; i} DISKSV nen AS FERS cWmi she SRC INMLUTIL.B832; (39 * 95 v04 
; 961 951 4 

: 96 9 4 “ptr nma$v_area] EQL .nml$qw_vol_exec_addr [nma$v_area] THEN 
; 96 9 : 4 mee ot “areal = 5; “ee “4 - 

: 363 3 : cHsMove® * ddr); 

: -ptr, .addr); 

: 96 0956 RETURN nmi$_sts. suc 

:; 96 95 END; 

: 968 958 

: 969 959 ! 

; 970 960 ' No node address found. 

: 971 961 i 

: 3f¢ 306 ¢ addr )<0 16> = 0; 

: 97 96 RETURN nm($_sts_pty 

: 974 964 

: 975 0965 1 END; ! End of NMLSGETNODADR 


-PSECT S$PLITS,NOWRT,NOEXE,2 


0000001C 00040 P.AAK: .LONG 28 $ ; 

00000000' 00044 -ADDRESS U.7 : : 

-PSECT S$OWNS,NOEXE,2 : 

22 00204 ;_NFB 3 

UT7: -BYTE 34 : 3 

00 00205 -—BYTE 0 : 3 

02 00206 mite 2 : : 

29 00207 BYTE g : 3 

02020043 00208 LONG 3685571 : 3 

00000001 0020C LONG 1 : 3 

00 00210 BYTE 0 ; : 

00 basi 4 -BYTE 0O : 3 

0000 00212 -WORD OQ : j 

02010010 00214 LONG 33619984 : 3 

00000000 00218 LONG 0 : $ 

0021C BLKB 4 ; 

U.8= P.AAK : 

-PSECT S$CODE$,NOWRT,2 : 

00 -ENTRY NMLSGETVOLNDADR, Save R2 : 0895 3 

52 00000000' MOVAB P2BFDSC, R2 ; 3 
5E SUBL2 . : 3 
4004 PUSHR #*M<R2,SP> : 0939 ; 

CLRL =(SP)-: : 3 

7E MNEGL #1, -(SP) : 3 
7E 04 ova NAMLEN, =(SP : 3 
FB94~=sCCF 9 CALLS #6, NMLSBLDP2 : ; 
08 E PUSHAB PRMDSC 3 0940 3 

! CLRL -(SP : : 

08 PUSHAB P2DSC § s 

40 g PUSHAB NFBDSC : 3 
000000006 00 CALLS #4, NMLSNETQIO : 3 
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H 13 
ity routines 16-Sep-1984 :38: VAX-11 Bliss- 
XEYD Get executor node id 13-808- 1382 99:38:33 DISKSVMSMASTE 
ZSBITL "NMLSGETEXEID Get executor node id' 
GLOBAL ROUTINE NMLSGETEXEID (BUFDSC, RESLEN) = 
1 
i 


+ 
} FUNCTIONAL DESCRIPTION: 


This routine returns the executor node address followed by 
the node name. 


FORMAL PARAMETERS: 


BUF DSC aoe Angee descriptor of buffer to contain ASCII 
RESLEN Resulting length of node name string. 


IMPLICIT INPUTS: 


If this is a permanent data base operation then it is assumed 
that the executor and node files are already open. 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 


COMPLETION CODES: 
If the executor node name is found then success (NML$_STS_SUC) is 
is returned along with failure (NML$_STS_PTY 

SIDE EFFECTS: 
NONE 


BEGIN 


P 
bufdsc : REF DESCRIPTOR; 

LOCAL 
addr : WORD 
nambuf : VECTOR C6 BYTE), 
namdsc : VECTOR (23, 
namlen, 
ptr; 
ptr = ch$ptr (.bufdsc Cdsc$a_pointer]); 
nml$getexeadr (addr); ! Get address 
namdsc £0} = 6; 
namdsc [1] = nambuf; 
nml$getexenam (namdsc, namlen); ! Get name 
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returned. If the node name is not found a gere Length counted string 


s 
D Get executor node id 


‘ >: gtr sent exe, ptr); 
-bufdsc ~pandgc polateri, 
RETURN Bega jit 


ls 
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! End of NMLSGETEXEID 
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NMLSGETEXEID, Save R2,R3,R4,R5,R6 
#24, SP 


BUFBSC. R6 
4(R6), PTR 


#1, NMLSGETEXEADR 


. NAM 
NARCEN" NAMDSC+4 


AMDSC 
2. r HHL SGETEXENAR 


4(R6), PTR, @RESLEN 
wi, RO 
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TILITY NAL Utility routines 1b-5¢ -1984 00:38:1 VAX-11 Bliss-32 V4.0-74 Page 36 

VoL 00 NMLSGET INF TABS Get NFB and information table 1 ~Sep-19 4 99:38:53 DLSKSVMEMASTERSENML SRCINMLUTIL.832:1 . 13 

; 1045 1033 1 ZSBTTL "NMLSGETINFTABS Get NFB and information table’ ; 
; 1908 } : ! GLOBAL ROUTINE NMLSGETINFTABS (ENT, INF, NFBOSC, TABDSC, COPY) = ‘ 
; 1048 1 $ 5 ie : 
H 1903 ! } FUNCTIONAL DESCRIPTION: : 
3 1981 10 5 1 | This routine returns the NFB descriptor address and the corresponding ‘ 
3 1928 iy 1} table address based on the internal entity type and the information ‘ 
3 Ver 196) ! type specified in the NCP SHOW command message. ; 
; 1055 1928 1 ! FORMAL PARAMETERS: : 
: 1928 1044 1! ; 
; 10 1045 1! ENT Internal entity type code. ‘ 
; 1058 He 1! INF Internal information type code. ‘ ‘ 
; 1059 1047 1! NFBDSC Address of longword to get NFB descriptor address. ‘ 
: 1060 1048 1! TABDSC Address of longword to get table Sescr later address. ‘ 
3; 1061 1049 1! COPY (Temporary parameter) If 1, copy the NFB to the ‘ 
3 1068 1320 : buffer specified by NFBDSC, and fill in NFBDSC Length. : 
; 1064 1026 1 ! ROUTINE VALUE: : 
; 1065 1053 1 ! COMPLETION CODES: ° 
; 1066 1054 1! ‘ 
3 1067 1055 1! If the descriptors are found for the specified entity and information : 
; 1068 1056 1! type then success (NML$_STS SUC) is returned. If the information type ‘ 
; 1069 1057 1! is invalid for the entity then an error message (NML$_STS_FUN) is ; 
; 1070 1058 1! signalled. , 
; 1071 1059 1! ; 
: 4 1060 1 ! SIDE EFFECTS: ° 
; 107 1061 1! : 
3: 1074 1066 1! NONE : 
3: 1075 1065 1! : 
3; 1076 1064 1 !-- ; 
: 1077 1065 1 ’ 
; 1078 1066 § BEGIN : 
3; 1079 1067 : 
3; 1080 1068 § LOCAL ; 
3 4 1069 single_ent_nfbdsc : REF DESCRIPTOR, : ; 
; 108 1970 enttab': REF BBLOCKVECTOR [, 8]; ! Address of entity table : 
3 Hs 1976 enttab = ,nml$al_entinftab C.ent]; ; 
3 1086 1074 ' Return address of table used to format the NICE response message for : 
3; 1087 1075 ! this entity. . 
; 1068 1978 : : 
3; 108 107 etabdsc = .enttab C.inf, 4,0,32,0); : 
; 1090 1078 : 
; 1091 1079 ‘ , > E : 
3 1095 1080 !' Return the canned NFB and NFB descriptor for getting the SHOW info ; 
; 109 1081 ! from NETACP. . 
: 1998 1988 iF NOT THEN 
3 -co : 
: 1096 1084 BEGIN ; 
3 644 1085 nfbdsc = .enttab C.inf, 0,0,32,0); ° 
; 1098 18 § : 
3: 1099 1 IF_..nfbdsc EQLA 0 : 
3; 1100 1? 8 THEN : 
; 1101 1089 : 


nml$error_1 (nma$c_sts_fun); | 
| 


K 13 
NMLSUTILITY Util 16-Sep-1984 VAX=11 BLi 3-32 V e NMI 
Vor b00 SETIN netaBe Get s NFB and information table 14- Sep- 7 99: 35: 3 DISKSVMSMA RS NML OS RCINMLUTIL. B32;1 429 ass v0é 
711 109 END ; 
; 1198 ! - ELSE ' ‘ 
$ 1108 1 38 ' For the new Q10 interface oo plural os show should ; 
3 1198 1094 i be modified to use the follow path. Whe get. ane to it. ‘ 
: 110 1929 ' For plural entity SHOWS. copy the single entity NF al “ 
; 1108 1 38 ! storage in the calling routine, where it will be medi tied” to ; 
; 1109 109 ! issue a plural entity SHOW. ; 
3 1110 1098 i ‘ 
3 1111 1099 BEGIN 
; 1116 1100 
3111 1101 
3 1116 11 ¢ nfbdsc : REF DESCRIPTOR; 
3 1115 110 
: 1116 1104 single_ent_nfbdsc = .enttab Ce jot. 0,0,32,0]; 
: 1117 1105 IF .single ent nfbdsc EQLA 0 Tf 
3 1118 1106 nmT$error_1 lasats sts_ 2 
3: 1119 1107 .nfbdsc = ..singlé_ent_nfbds ! Set up NFB Length. 
: 1120 1108 CHSMOVE (. single. ent =nfbdsc dscfy length] 
: 1121 1109 .s ingle” ent nfbdsc dsc$a “pointers, 
311 ; 1110 3 -nfbdsc Cdsc$a_pointer]) 
: 112 1111 END; 
: 1124 Wi¢ 
3; 1125 111 RETURN nml$_sts_suc 
: 1126 1114 
3 1127 1115 1 END; ! End of NMLSGETINF TABS 
007C 00000 -ENTRY NMLSGETINFTABS, Save R2,R3,R4,R5,R6 3: 1034 
56 000000006 00 9E 00002 MOVAB NMLSERROR_1, R6 : 
50 04 AC 00 00009 MOVL ENT, RO ; 1072 
51 0000000060040 D0 0000p MOVL §§ NML$AL_ENTINFTABCROJ, ENTTAB : 
50 08 AC be 00015 MOVL NF, R 3 1077 
50 6140 7F 00019 MOVAQ CENTTAB) CROJ RO F 
10 Bf 04 AO 00 80838 MOVL 4(R0) DSC 3 
5 OC AC 00 00022 MOVL NFBD Ny > 1085 
0d 14 AC E8 00026 BLBS COPY, PM, : 1083 
63 60 D Ba8 A MOVL (RO), (R3) 3; 1085 
1c #1 002D BNEQ 3$ : 1087 
i Bf Be ESS Hs iStanon ee 
4 8 $6 g BRB 3$ y : 1083 
52 69 00 4 7 1$: MOVL (RO), SINGLE_ENT_NFBDSC : 1104 
6 1 BS r BNEQ 2$ : 1105 
7E 01 CE 0003C MNEGL #1, -(SP) : 1406 
6 01 F 83 F CALLS #1, NMLSERROR 8 
é 62 p 4g 2s: VL_  (SINGLE_ENT “NEBDSC) (R3) + 1107 
046 «B35 04 B2 6 004 MOVC3 (SINGLE- ENT _NFBDSC) : 1110 
a4(SINGCE_ ENT TAFBDSC) » a4(R3) 3 
50 01 BO oooee 3$: MOVL #1, RO 3 113 
4 0004E RET 3 111 


; Routine Size: 79 bytes, Routine Base: $CODES + 04F3 


oe JO 


Int 


routin 
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l UNS routine 16-$ 55-19 4 t 98: 38: }} VAX-11 Bliss-32 V4.0-7 ais 
E_NUM Fix node address parameter (a 12-80 8-1 3c DISKSVMSMASTER: CNML. She NMLUTIL.832; 29 


“gsatTL "NMLSFIX_NODE_NUM Fix node address parameter (action routine)’ 
GLOBAL ROUTINE AMLSFIX -NODE_NUM (NODE_ADDR) = 


25 
se 


LITY NM 
NM 


'e4¢ 


; FUNCTIONAL DESCRIPTION: si 
i This is an NPARSE action that checks the node address. If the area 


WoO 


number is 0 it can be one of two cases 
The NCP is a Phase IV NCP, and user did not epeetiy an area 
e 


manner in the NCP command. In this case, assume user 


1 

' 

i] 

1 

means area 1 (since 0 is an invalid area number). 

: the NCP is a Phase III NCP and therefore doesn't eneprenane 
: area numbers. In this case, assume the user means the 
executor node's area. 

i FORMAL PARAMETERS: 

NODE _ADDR Address of Node address to fix. 

i IMPLICIT INPUTS: 

None 

| 

! 

i] 

1 


i IMPLICIT OUTPUTS: 
None 


BEGIN 


node_addr_: REF BBLOCK [2], 
nml$gb_options : BBLOCK (1); 


WN “SO OONOULSWN “OO DNAOUSWA)"ODOONOuW 


AL 
exec_addr : BBLOCK (2); 


If the node address is 0, then it's the executor, so sane it that way. 
If the area number of the address ts 0, then change it. 


F .node_addr Cnma$v_addr] NEQ 0 AND 
“node addr nma$v_area] EQL 0 THEN 


AME WN SO OONAUES WN O ODNAUS WN MOOS NAULE WI OOOND 


wu w INN WIWI NIIP NININIPINININ 2 SS SO 


! Get the executor address from the volatile database if the NICE a 
' is a volatile database command and from the permanent database if the 

i NICE command is a permanent database command. Use the executor's area 
number for the node address supplied. 


AAO USUI E® BS ES BB EEE PW 


WUnN—OO0on 


dr (exec_addr); 
node_ addr (nma$v_aréa] = .exec_addr (nma$v_area); 


SN NNO 


RETURN nal $_sts_suc 
END; ! End of NMLSFIX_NODE_NUM 


PTE TELE TETELLOLILILIER LOIRE eee Eee Te IETS rererererarrlirecrererereleti te 
ee ee ee ee en ie ee ee ee ee ee ee ee eee’ 
ee lt ce ee el el eel cel ee el cel cel el el cel el cl el el el eel eel cel cel el eel cell col el cel el cel cell ll cecal cl call cls cals alls cell cecal cals ccaalls cells malls cells cl lls ls casas casas cals 


ee ee me ee ce el ee ee me ee a ed ed ed ed dd ed dd dd od = dd dd td Wd 


0004 0 .ENTRY NMLSFIX_NODE_NUM, Save R2 
3) 04 oe 5 ayate NOSE ADDR R2 
O3FF oF és : 099 Bi TW (Re); #1023 
FC OF 01 Ag 9 O16 BITB 1(R2), #252 
Hs 
FDO3 CF § FB 9019 CALLS #1, NMLSGETEXEADR 
50 01 AE 6 : EF OO01E EXT2V #2, #6, EXEC_ADDR+1, RO 
62 06 OA FO 00024 INSV RO, #10, #6,7(R2) 
50 01 00 00029 1$ MOVL #1. 
04 0002¢ RET 


; Routine Size: 45 bytes, Routine Base: S$CODE$ + 0542 
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NMLSUTILITY NML Utility rout 16-50 1984 VAX-11 Bliss-32 V4. 13] 

WOKE bO NASP IX_NO OBE e"NUN " x node address parameter (a 1 8ep-1984 99: 38: 3 DIS AK SVMER TER: chat? she NMLUTIL.832; 429 (15) v04: 
; 1185 1171 +1 END 

3 18 1106 1 

3 11 1173 0 ELUDOM 


' -EXTRN LIBSSIGNAL 
PSECT SUMMARY 


: Name Bytes Attributes 
: $GLOBAL$ 52 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON ee ar ients 
; SOWNS 544 NOVEC, WRT, RD “NOEXE,NOSHR, LCL, REL. CON,NOPIC,ALIGN(2) 
: SPLITS 72 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; SCODES 1391 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
H Library Statistics 
B.C ee ce Phe laa: es aimee PYEROLE Saesacce Pages Processing 
s File Total Loaded Percent Mapped Time 
: .$255$DUA28: (NML .OBJ INMLLIB.L32;1 341 35 10 27 00:00.1 
> 7$255$DUA28:(SHRLIBINMALIBRY.L32;1 887 10 1 47 00:00.2 
; ~$255$DUA28:CSHRLIBINET.L32;1 1279 10 0 63 00:00.3 
: 7$255$DUA28:CSYSLIBISTARLET.L32;1 9776 2 0 581 00:03.2 
3 COMMAND QUALIFIERS 
3 BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:NMLUTIL/OBJ=OBJ$:NMLUTIL MSRC$:NMLUTIL/UPDATE=(ENHS:NMLUTIL) 
; Size: 1391 80° + 668 data bytes 

Run Time 00: 3 2 


; Lexemes/CPU-Min: 
; gonecy Used: 154 pages 
a 


; Elap 

3; Lines/CPU Mi oT 2373 

3 15379 
: Compi 


tion Complete 


IPMENT CORPOR 


an? Vay7une ¥a-¢ L AND PROPRIETARY 


DI 
VAX/VMS_V4.0 CO 


